3.537 \(\int \sec ^5(c+d x) (a+b \tan (c+d x))^3 \, dx\)

Optimal. Leaf size=159 \[ \frac{3 a \left (2 a^2-b^2\right ) \tanh ^{-1}(\sin (c+d x))}{16 d}+\frac{b \sec ^5(c+d x) \left (4 \left (8 a^2-b^2\right )+15 a b \tan (c+d x)\right )}{70 d}+\frac{a \left (2 a^2-b^2\right ) \tan (c+d x) \sec ^3(c+d x)}{8 d}+\frac{3 a \left (2 a^2-b^2\right ) \tan (c+d x) \sec (c+d x)}{16 d}+\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d} \]

[Out]

(3*a*(2*a^2 - b^2)*ArcTanh[Sin[c + d*x]])/(16*d) + (3*a*(2*a^2 - b^2)*Sec[c + d*x]*Tan[c + d*x])/(16*d) + (a*(
2*a^2 - b^2)*Sec[c + d*x]^3*Tan[c + d*x])/(8*d) + (b*Sec[c + d*x]^5*(a + b*Tan[c + d*x])^2)/(7*d) + (b*Sec[c +
d*x]^5*(4*(8*a^2 - b^2) + 15*a*b*Tan[c + d*x]))/(70*d)

________________________________________________________________________________________

Rubi [A]  time = 0.14451, antiderivative size = 177, normalized size of antiderivative = 1.11, number of steps used = 6, number of rules used = 5, integrand size = 21, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.238, Rules used = {3512, 743, 780, 195, 215} \[ \frac{b \sec ^5(c+d x) \left (4 \left (8 a^2-b^2\right )+15 a b \tan (c+d x)\right )}{70 d}+\frac{a \left (2 a^2-b^2\right ) \tan (c+d x) \sec ^3(c+d x)}{8 d}+\frac{3 a \left (2 a^2-b^2\right ) \tan (c+d x) \sec (c+d x)}{16 d}+\frac{3 a \left (2 a^2-b^2\right ) \sec (c+d x) \sinh ^{-1}(\tan (c+d x))}{16 d \sqrt{\sec ^2(c+d x)}}+\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d} \]

Antiderivative was successfully verified.

[In]

Int[Sec[c + d*x]^5*(a + b*Tan[c + d*x])^3,x]

[Out]

(3*a*(2*a^2 - b^2)*ArcSinh[Tan[c + d*x]]*Sec[c + d*x])/(16*d*Sqrt[Sec[c + d*x]^2]) + (3*a*(2*a^2 - b^2)*Sec[c
+ d*x]*Tan[c + d*x])/(16*d) + (a*(2*a^2 - b^2)*Sec[c + d*x]^3*Tan[c + d*x])/(8*d) + (b*Sec[c + d*x]^5*(a + b*T
an[c + d*x])^2)/(7*d) + (b*Sec[c + d*x]^5*(4*(8*a^2 - b^2) + 15*a*b*Tan[c + d*x]))/(70*d)

Rule 3512

Int[((d_.)*sec[(e_.) + (f_.)*(x_)])^(m_.)*((a_) + (b_.)*tan[(e_.) + (f_.)*(x_)])^(n_), x_Symbol] :> Dist[(d^(2
*IntPart[m/2])*(d*Sec[e + f*x])^(2*FracPart[m/2]))/(b*f*(Sec[e + f*x]^2)^FracPart[m/2]), Subst[Int[(a + x)^n*(
1 + x^2/b^2)^(m/2 - 1), x], x, b*Tan[e + f*x]], x] /; FreeQ[{a, b, d, e, f, m, n}, x] && NeQ[a^2 + b^2, 0] &&
!IntegerQ[m/2]

Rule 743

Int[((d_) + (e_.)*(x_))^(m_)*((a_) + (c_.)*(x_)^2)^(p_), x_Symbol] :> Simp[(e*(d + e*x)^(m - 1)*(a + c*x^2)^(p
+ 1))/(c*(m + 2*p + 1)), x] + Dist[1/(c*(m + 2*p + 1)), Int[(d + e*x)^(m - 2)*Simp[c*d^2*(m + 2*p + 1) - a*e^
2*(m - 1) + 2*c*d*e*(m + p)*x, x]*(a + c*x^2)^p, x], x] /; FreeQ[{a, c, d, e, m, p}, x] && NeQ[c*d^2 + a*e^2,
0] && If[RationalQ[m], GtQ[m, 1], SumSimplerQ[m, -2]] && NeQ[m + 2*p + 1, 0] && IntQuadraticQ[a, 0, c, d, e, m
, p, x]

Rule 780

Int[((d_.) + (e_.)*(x_))*((f_.) + (g_.)*(x_))*((a_) + (c_.)*(x_)^2)^(p_), x_Symbol] :> Simp[(((e*f + d*g)*(2*p
+ 3) + 2*e*g*(p + 1)*x)*(a + c*x^2)^(p + 1))/(2*c*(p + 1)*(2*p + 3)), x] - Dist[(a*e*g - c*d*f*(2*p + 3))/(c*
(2*p + 3)), Int[(a + c*x^2)^p, x], x] /; FreeQ[{a, c, d, e, f, g, p}, x] &&  !LeQ[p, -1]

Rule 195

Int[((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[(x*(a + b*x^n)^p)/(n*p + 1), x] + Dist[(a*n*p)/(n*p + 1),
Int[(a + b*x^n)^(p - 1), x], x] /; FreeQ[{a, b}, x] && IGtQ[n, 0] && GtQ[p, 0] && (IntegerQ[2*p] || (EqQ[n, 2
] && IntegerQ[4*p]) || (EqQ[n, 2] && IntegerQ[3*p]) || LtQ[Denominator[p + 1/n], Denominator[p]])

Rule 215

Int[1/Sqrt[(a_) + (b_.)*(x_)^2], x_Symbol] :> Simp[ArcSinh[(Rt[b, 2]*x)/Sqrt[a]]/Rt[b, 2], x] /; FreeQ[{a, b},
x] && GtQ[a, 0] && PosQ[b]

Rubi steps

\begin{align*} \int \sec ^5(c+d x) (a+b \tan (c+d x))^3 \, dx &=\frac{\sec (c+d x) \operatorname{Subst}\left (\int (a+x)^3 \left (1+\frac{x^2}{b^2}\right )^{3/2} \, dx,x,b \tan (c+d x)\right )}{b d \sqrt{\sec ^2(c+d x)}}\\ &=\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d}+\frac{(b \sec (c+d x)) \operatorname{Subst}\left (\int (a+x) \left (-2+\frac{7 a^2}{b^2}+\frac{9 a x}{b^2}\right ) \left (1+\frac{x^2}{b^2}\right )^{3/2} \, dx,x,b \tan (c+d x)\right )}{7 d \sqrt{\sec ^2(c+d x)}}\\ &=\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d}+\frac{b \sec ^5(c+d x) \left (4 \left (8 a^2-b^2\right )+15 a b \tan (c+d x)\right )}{70 d}-\frac{\left (\left (\frac{9 a}{b^2}-\frac{6 a \left (-2+\frac{7 a^2}{b^2}\right )}{b^2}\right ) b^3 \sec (c+d x)\right ) \operatorname{Subst}\left (\int \left (1+\frac{x^2}{b^2}\right )^{3/2} \, dx,x,b \tan (c+d x)\right )}{42 d \sqrt{\sec ^2(c+d x)}}\\ &=\frac{a \left (2 a^2-b^2\right ) \sec ^3(c+d x) \tan (c+d x)}{8 d}+\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d}+\frac{b \sec ^5(c+d x) \left (4 \left (8 a^2-b^2\right )+15 a b \tan (c+d x)\right )}{70 d}-\frac{\left (\left (\frac{9 a}{b^2}-\frac{6 a \left (-2+\frac{7 a^2}{b^2}\right )}{b^2}\right ) b^3 \sec (c+d x)\right ) \operatorname{Subst}\left (\int \sqrt{1+\frac{x^2}{b^2}} \, dx,x,b \tan (c+d x)\right )}{56 d \sqrt{\sec ^2(c+d x)}}\\ &=\frac{3 a \left (2 a^2-b^2\right ) \sec (c+d x) \tan (c+d x)}{16 d}+\frac{a \left (2 a^2-b^2\right ) \sec ^3(c+d x) \tan (c+d x)}{8 d}+\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d}+\frac{b \sec ^5(c+d x) \left (4 \left (8 a^2-b^2\right )+15 a b \tan (c+d x)\right )}{70 d}-\frac{\left (\left (\frac{9 a}{b^2}-\frac{6 a \left (-2+\frac{7 a^2}{b^2}\right )}{b^2}\right ) b^3 \sec (c+d x)\right ) \operatorname{Subst}\left (\int \frac{1}{\sqrt{1+\frac{x^2}{b^2}}} \, dx,x,b \tan (c+d x)\right )}{112 d \sqrt{\sec ^2(c+d x)}}\\ &=\frac{3 a \left (2 a^2-b^2\right ) \sinh ^{-1}(\tan (c+d x)) \sec (c+d x)}{16 d \sqrt{\sec ^2(c+d x)}}+\frac{3 a \left (2 a^2-b^2\right ) \sec (c+d x) \tan (c+d x)}{16 d}+\frac{a \left (2 a^2-b^2\right ) \sec ^3(c+d x) \tan (c+d x)}{8 d}+\frac{b \sec ^5(c+d x) (a+b \tan (c+d x))^2}{7 d}+\frac{b \sec ^5(c+d x) \left (4 \left (8 a^2-b^2\right )+15 a b \tan (c+d x)\right )}{70 d}\\ \end{align*}

Mathematica [B]  time = 2.14269, size = 637, normalized size = 4.01 \[ \frac{\sec ^7(c+d x) \left (3584 \left (3 a^2 b-b^3\right ) \cos (2 (c+d x))-3675 a \left (2 a^2-b^2\right ) \cos (c+d x) \left (\log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )-\log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )\right )+10752 a^2 b+4340 a^3 \sin (2 (c+d x))+2800 a^3 \sin (4 (c+d x))+420 a^3 \sin (6 (c+d x))-4410 a^3 \cos (3 (c+d x)) \log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )-1470 a^3 \cos (5 (c+d x)) \log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )-210 a^3 \cos (7 (c+d x)) \log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )+4410 a^3 \cos (3 (c+d x)) \log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )+1470 a^3 \cos (5 (c+d x)) \log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )+210 a^3 \cos (7 (c+d x)) \log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )+6790 a b^2 \sin (2 (c+d x))-1400 a b^2 \sin (4 (c+d x))-210 a b^2 \sin (6 (c+d x))+2205 a b^2 \cos (3 (c+d x)) \log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )+735 a b^2 \cos (5 (c+d x)) \log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )+105 a b^2 \cos (7 (c+d x)) \log \left (\cos \left (\frac{1}{2} (c+d x)\right )-\sin \left (\frac{1}{2} (c+d x)\right )\right )-2205 a b^2 \cos (3 (c+d x)) \log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )-735 a b^2 \cos (5 (c+d x)) \log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )-105 a b^2 \cos (7 (c+d x)) \log \left (\sin \left (\frac{1}{2} (c+d x)\right )+\cos \left (\frac{1}{2} (c+d x)\right )\right )+1536 b^3\right )}{35840 d} \]

Antiderivative was successfully verified.

[In]

Integrate[Sec[c + d*x]^5*(a + b*Tan[c + d*x])^3,x]

[Out]

(Sec[c + d*x]^7*(10752*a^2*b + 1536*b^3 + 3584*(3*a^2*b - b^3)*Cos[2*(c + d*x)] - 4410*a^3*Cos[3*(c + d*x)]*Lo
g[Cos[(c + d*x)/2] - Sin[(c + d*x)/2]] + 2205*a*b^2*Cos[3*(c + d*x)]*Log[Cos[(c + d*x)/2] - Sin[(c + d*x)/2]]
- 1470*a^3*Cos[5*(c + d*x)]*Log[Cos[(c + d*x)/2] - Sin[(c + d*x)/2]] + 735*a*b^2*Cos[5*(c + d*x)]*Log[Cos[(c +
d*x)/2] - Sin[(c + d*x)/2]] - 210*a^3*Cos[7*(c + d*x)]*Log[Cos[(c + d*x)/2] - Sin[(c + d*x)/2]] + 105*a*b^2*C
os[7*(c + d*x)]*Log[Cos[(c + d*x)/2] - Sin[(c + d*x)/2]] - 3675*a*(2*a^2 - b^2)*Cos[c + d*x]*(Log[Cos[(c + d*x
)/2] - Sin[(c + d*x)/2]] - Log[Cos[(c + d*x)/2] + Sin[(c + d*x)/2]]) + 4410*a^3*Cos[3*(c + d*x)]*Log[Cos[(c +
d*x)/2] + Sin[(c + d*x)/2]] - 2205*a*b^2*Cos[3*(c + d*x)]*Log[Cos[(c + d*x)/2] + Sin[(c + d*x)/2]] + 1470*a^3*
Cos[5*(c + d*x)]*Log[Cos[(c + d*x)/2] + Sin[(c + d*x)/2]] - 735*a*b^2*Cos[5*(c + d*x)]*Log[Cos[(c + d*x)/2] +
Sin[(c + d*x)/2]] + 210*a^3*Cos[7*(c + d*x)]*Log[Cos[(c + d*x)/2] + Sin[(c + d*x)/2]] - 105*a*b^2*Cos[7*(c + d
*x)]*Log[Cos[(c + d*x)/2] + Sin[(c + d*x)/2]] + 4340*a^3*Sin[2*(c + d*x)] + 6790*a*b^2*Sin[2*(c + d*x)] + 2800
*a^3*Sin[4*(c + d*x)] - 1400*a*b^2*Sin[4*(c + d*x)] + 420*a^3*Sin[6*(c + d*x)] - 210*a*b^2*Sin[6*(c + d*x)]))/
(35840*d)

________________________________________________________________________________________

Maple [B]  time = 0.074, size = 328, normalized size = 2.1 \begin{align*}{\frac{{b}^{3} \left ( \sin \left ( dx+c \right ) \right ) ^{4}}{7\,d \left ( \cos \left ( dx+c \right ) \right ) ^{7}}}+{\frac{3\,{b}^{3} \left ( \sin \left ( dx+c \right ) \right ) ^{4}}{35\,d \left ( \cos \left ( dx+c \right ) \right ) ^{5}}}+{\frac{{b}^{3} \left ( \sin \left ( dx+c \right ) \right ) ^{4}}{35\,d \left ( \cos \left ( dx+c \right ) \right ) ^{3}}}-{\frac{{b}^{3} \left ( \sin \left ( dx+c \right ) \right ) ^{4}}{35\,d\cos \left ( dx+c \right ) }}-{\frac{{b}^{3}\cos \left ( dx+c \right ) \left ( \sin \left ( dx+c \right ) \right ) ^{2}}{35\,d}}-{\frac{2\,{b}^{3}\cos \left ( dx+c \right ) }{35\,d}}+{\frac{a{b}^{2} \left ( \sin \left ( dx+c \right ) \right ) ^{3}}{2\,d \left ( \cos \left ( dx+c \right ) \right ) ^{6}}}+{\frac{3\,a{b}^{2} \left ( \sin \left ( dx+c \right ) \right ) ^{3}}{8\,d \left ( \cos \left ( dx+c \right ) \right ) ^{4}}}+{\frac{3\,a{b}^{2} \left ( \sin \left ( dx+c \right ) \right ) ^{3}}{16\,d \left ( \cos \left ( dx+c \right ) \right ) ^{2}}}+{\frac{3\,a{b}^{2}\sin \left ( dx+c \right ) }{16\,d}}-{\frac{3\,a{b}^{2}\ln \left ( \sec \left ( dx+c \right ) +\tan \left ( dx+c \right ) \right ) }{16\,d}}+{\frac{3\,b{a}^{2}}{5\,d \left ( \cos \left ( dx+c \right ) \right ) ^{5}}}+{\frac{{a}^{3}\tan \left ( dx+c \right ) \left ( \sec \left ( dx+c \right ) \right ) ^{3}}{4\,d}}+{\frac{3\,{a}^{3}\sec \left ( dx+c \right ) \tan \left ( dx+c \right ) }{8\,d}}+{\frac{3\,{a}^{3}\ln \left ( \sec \left ( dx+c \right ) +\tan \left ( dx+c \right ) \right ) }{8\,d}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(sec(d*x+c)^5*(a+b*tan(d*x+c))^3,x)

[Out]

1/7/d*b^3*sin(d*x+c)^4/cos(d*x+c)^7+3/35/d*b^3*sin(d*x+c)^4/cos(d*x+c)^5+1/35/d*b^3*sin(d*x+c)^4/cos(d*x+c)^3-
1/35/d*b^3*sin(d*x+c)^4/cos(d*x+c)-1/35/d*b^3*cos(d*x+c)*sin(d*x+c)^2-2/35/d*b^3*cos(d*x+c)+1/2/d*a*b^2*sin(d*
x+c)^3/cos(d*x+c)^6+3/8/d*a*b^2*sin(d*x+c)^3/cos(d*x+c)^4+3/16/d*a*b^2*sin(d*x+c)^3/cos(d*x+c)^2+3/16/d*a*b^2*
sin(d*x+c)-3/16/d*a*b^2*ln(sec(d*x+c)+tan(d*x+c))+3/5/d*b*a^2/cos(d*x+c)^5+1/4/d*a^3*tan(d*x+c)*sec(d*x+c)^3+3
/8*a^3*sec(d*x+c)*tan(d*x+c)/d+3/8/d*a^3*ln(sec(d*x+c)+tan(d*x+c))

________________________________________________________________________________________

Maxima [A]  time = 1.17441, size = 281, normalized size = 1.77 \begin{align*} \frac{35 \, a b^{2}{\left (\frac{2 \,{\left (3 \, \sin \left (d x + c\right )^{5} - 8 \, \sin \left (d x + c\right )^{3} - 3 \, \sin \left (d x + c\right )\right )}}{\sin \left (d x + c\right )^{6} - 3 \, \sin \left (d x + c\right )^{4} + 3 \, \sin \left (d x + c\right )^{2} - 1} - 3 \, \log \left (\sin \left (d x + c\right ) + 1\right ) + 3 \, \log \left (\sin \left (d x + c\right ) - 1\right )\right )} - 70 \, a^{3}{\left (\frac{2 \,{\left (3 \, \sin \left (d x + c\right )^{3} - 5 \, \sin \left (d x + c\right )\right )}}{\sin \left (d x + c\right )^{4} - 2 \, \sin \left (d x + c\right )^{2} + 1} - 3 \, \log \left (\sin \left (d x + c\right ) + 1\right ) + 3 \, \log \left (\sin \left (d x + c\right ) - 1\right )\right )} + \frac{672 \, a^{2} b}{\cos \left (d x + c\right )^{5}} - \frac{32 \,{\left (7 \, \cos \left (d x + c\right )^{2} - 5\right )} b^{3}}{\cos \left (d x + c\right )^{7}}}{1120 \, d} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(d*x+c)^5*(a+b*tan(d*x+c))^3,x, algorithm="maxima")

[Out]

1/1120*(35*a*b^2*(2*(3*sin(d*x + c)^5 - 8*sin(d*x + c)^3 - 3*sin(d*x + c))/(sin(d*x + c)^6 - 3*sin(d*x + c)^4
+ 3*sin(d*x + c)^2 - 1) - 3*log(sin(d*x + c) + 1) + 3*log(sin(d*x + c) - 1)) - 70*a^3*(2*(3*sin(d*x + c)^3 - 5
*sin(d*x + c))/(sin(d*x + c)^4 - 2*sin(d*x + c)^2 + 1) - 3*log(sin(d*x + c) + 1) + 3*log(sin(d*x + c) - 1)) +
672*a^2*b/cos(d*x + c)^5 - 32*(7*cos(d*x + c)^2 - 5)*b^3/cos(d*x + c)^7)/d

________________________________________________________________________________________

Fricas [A]  time = 2.08916, size = 410, normalized size = 2.58 \begin{align*} \frac{105 \,{\left (2 \, a^{3} - a b^{2}\right )} \cos \left (d x + c\right )^{7} \log \left (\sin \left (d x + c\right ) + 1\right ) - 105 \,{\left (2 \, a^{3} - a b^{2}\right )} \cos \left (d x + c\right )^{7} \log \left (-\sin \left (d x + c\right ) + 1\right ) + 160 \, b^{3} + 224 \,{\left (3 \, a^{2} b - b^{3}\right )} \cos \left (d x + c\right )^{2} + 70 \,{\left (3 \,{\left (2 \, a^{3} - a b^{2}\right )} \cos \left (d x + c\right )^{5} + 8 \, a b^{2} \cos \left (d x + c\right ) + 2 \,{\left (2 \, a^{3} - a b^{2}\right )} \cos \left (d x + c\right )^{3}\right )} \sin \left (d x + c\right )}{1120 \, d \cos \left (d x + c\right )^{7}} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(d*x+c)^5*(a+b*tan(d*x+c))^3,x, algorithm="fricas")

[Out]

1/1120*(105*(2*a^3 - a*b^2)*cos(d*x + c)^7*log(sin(d*x + c) + 1) - 105*(2*a^3 - a*b^2)*cos(d*x + c)^7*log(-sin
(d*x + c) + 1) + 160*b^3 + 224*(3*a^2*b - b^3)*cos(d*x + c)^2 + 70*(3*(2*a^3 - a*b^2)*cos(d*x + c)^5 + 8*a*b^2
*cos(d*x + c) + 2*(2*a^3 - a*b^2)*cos(d*x + c)^3)*sin(d*x + c))/(d*cos(d*x + c)^7)

________________________________________________________________________________________

Sympy [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int \left (a + b \tan{\left (c + d x \right )}\right )^{3} \sec ^{5}{\left (c + d x \right )}\, dx \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(d*x+c)**5*(a+b*tan(d*x+c))**3,x)

[Out]

Integral((a + b*tan(c + d*x))**3*sec(c + d*x)**5, x)

________________________________________________________________________________________

Giac [B]  time = 1.89232, size = 628, normalized size = 3.95 \begin{align*} \text{result too large to display} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(sec(d*x+c)^5*(a+b*tan(d*x+c))^3,x, algorithm="giac")

[Out]

1/560*(105*(2*a^3 - a*b^2)*log(abs(tan(1/2*d*x + 1/2*c) + 1)) - 105*(2*a^3 - a*b^2)*log(abs(tan(1/2*d*x + 1/2*
c) - 1)) + 2*(350*a^3*tan(1/2*d*x + 1/2*c)^13 + 105*a*b^2*tan(1/2*d*x + 1/2*c)^13 - 1680*a^2*b*tan(1/2*d*x + 1
/2*c)^12 - 840*a^3*tan(1/2*d*x + 1/2*c)^11 + 1540*a*b^2*tan(1/2*d*x + 1/2*c)^11 + 3360*a^2*b*tan(1/2*d*x + 1/2
*c)^10 - 1120*b^3*tan(1/2*d*x + 1/2*c)^10 + 630*a^3*tan(1/2*d*x + 1/2*c)^9 + 1085*a*b^2*tan(1/2*d*x + 1/2*c)^9
- 5040*a^2*b*tan(1/2*d*x + 1/2*c)^8 - 1120*b^3*tan(1/2*d*x + 1/2*c)^8 + 6720*a^2*b*tan(1/2*d*x + 1/2*c)^6 - 2
240*b^3*tan(1/2*d*x + 1/2*c)^6 - 630*a^3*tan(1/2*d*x + 1/2*c)^5 - 1085*a*b^2*tan(1/2*d*x + 1/2*c)^5 - 3696*a^2
*b*tan(1/2*d*x + 1/2*c)^4 - 448*b^3*tan(1/2*d*x + 1/2*c)^4 + 840*a^3*tan(1/2*d*x + 1/2*c)^3 - 1540*a*b^2*tan(1
/2*d*x + 1/2*c)^3 + 672*a^2*b*tan(1/2*d*x + 1/2*c)^2 - 224*b^3*tan(1/2*d*x + 1/2*c)^2 - 350*a^3*tan(1/2*d*x +
1/2*c) - 105*a*b^2*tan(1/2*d*x + 1/2*c) - 336*a^2*b + 32*b^3)/(tan(1/2*d*x + 1/2*c)^2 - 1)^7)/d